Sub Ʈ( As String)

    Dim  As Range, c As Integer
    Dim  As Range
    Dim  As String
    Dim  As String

    Set  = Range("C2", Range("C2").End(xlToRight))
    c = WorksheetFunction.Match(, , 0)
            
     = ThisWorkbook.Path & "\"
     = "chart.gif"
            
    Set  = Range("B2").CurrentRegion.Columns(1)
    Set  = Union(, .Offset(, c))

    ActiveSheet.Shapes.AddChart(Width:=300, Height:=200).Select
    
    With ActiveChart
        
        .SetSourceData Source:=
        .ChartType = xlColumnClustered
        
        With WorksheetFunction
            ActiveChart.Axes(xlValue).MaximumScale = .Ceiling(.Max(Range("B2").CurrentRegion), 1000)
        End With
        
        .ChartStyle = 208
        .ChartGroups(1).GapWidth = 80
        .SetElement Element:=msoElementDataLabelOutSideEnd
        
        .Legend.Delete
        
        With .ChartTitle
        
            .Text = "[" &  & "] ǸŽ"
            .Format.TextFrame2.TextRange.Characters.Font.Size = 14
            
        End With
    
        If Dir( & ) <> "" Then Kill PathName:= & 
    
        .Export Filename:= & , FilterName:="GIF"
        
        .Parent.Delete
            
    End With
    
End Sub
